perm filename LOSS.1[MAC,LSP]2 blob sn#497001 filedate 1980-02-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun foo fexpr (file)
C00003 ENDMK
CāŠ—;
(defun foo fexpr (file)
       
       (cond ((and (null (cdr file)) (symbolp (car file)))
	      (car file))
	     ((and (status feature sail) 
		   (cadr file)
		   (eq (cadr file) 'dsk))
	      (cons (car file) (cons  '| | (cdr file))))
	     ('t file)))